home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jedit_typing.tcl < prev    next >
Encoding:
Text File  |  1995-02-08  |  5.6 KB  |  195 lines
  1. # jedit_typing.tcl - special typing procedures for jedit, a tk-based editor
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6.  
  7. # TO DO
  8. #   abbrev fixes:
  9. #     maybe some heuristics for things like plurals
  10. #     maybe a syntax for suffixes (e.g., commit;t -> commitment)
  11. #   file_modes panel
  12. #   documentation for keybindings (automatic documentation?)
  13. #   problem with filename getting set when you cancel Save 
  14. #     for the first time on a new unnamed file
  15. #   improve find panel
  16. #     have find wrap around (if last time didn't match)
  17. #     regex search/replace
  18. #     find all at once (mark) and cycle through with tag nextrange
  19. #   gesture commands
  20. #   autobreaking space a problem if you use two spaces betw sentences
  21. #   word-end punctuation (and heuristics) sd be mode-specific
  22. #
  23. #   PROBLEM WITH CHANGING BINDINGS ON THE FLY!               (urgent)
  24.  
  25. # CHANGES:
  26. #   lots of binding changes (jbind*.tcl consistency)
  27. #     app-specific Emacs and vi bindings
  28. #   house(s) the s won't expand
  29. #   return key checkpoints!
  30. #   improved mode handling (hooks)
  31.  
  32. ######################################################################
  33.  
  34. ######################################################################
  35. # jedit:self_insert_punct - specialised version of j:tkb:self_insert
  36. #   THERE SHOULD BE A GENERALISED MECHANISM FOR THIS!
  37. ######################################################################
  38.  
  39. proc jedit:self_insert_punct { W K A } {
  40.   global j_teb
  41.  
  42.   if {"$A" != ""} {
  43.     jedit:sabbrev_hook $W
  44.     j:tkb:repeatable {
  45.       j:text:insert_string $W $A
  46.     } $W
  47.   }
  48. }
  49.  
  50. ######################################################################
  51. # jedit:tabkey - do whatever tab does (abbrev, indent, whatever)
  52. ######################################################################
  53.  
  54. proc jedit:tabkey { t args } {
  55.   global JEDIT_MODEPREFS
  56.   
  57.   set mode [jedit:get_mode $t]
  58.   
  59.   if {[info procs mode:$mode:pre_tabkey_hook] != {}} {
  60.     mode:$mode:pre_tabkey_hook $t
  61.   }
  62.   #
  63.   if {[info procs mode:$mode:tabkey] != {}} {
  64.     mode:$mode:tabkey $t
  65.   } else {
  66.     if $JEDIT_MODEPREFS($mode,dabbrev) {
  67.       jedit:cmd:dabbrev $t
  68.     } else {
  69.       j:tkb:self_insert $t Tab "\t"
  70.     }
  71.   }
  72.   #
  73.   if {[info procs mode:$mode:post_tabkey_hook] != {}} {
  74.     mode:$mode:post_tabkey_hook $t
  75.   }
  76. }
  77.  
  78. ######################################################################
  79. # jedit:spacebar - do whatever space does (abbrev, line breaking, whatever)
  80. ######################################################################
  81.  
  82. proc jedit:spacebar { t args } {
  83.   set mode [jedit:get_mode $t]
  84.   
  85.   if {[info procs mode:$mode:pre_spacebar_hook] != {}} {
  86.     mode:$mode:pre_spacebar_hook $t
  87.   }
  88.   #
  89.   if {[info procs mode:$mode:spacebar] != {}} {
  90.     mode:$mode:spacebar $t
  91.   } else {
  92.     jedit:sabbrev_hook $t
  93.     j:tkb:self_insert $t space " "
  94.     jedit:autobreak_hook $t
  95.   }
  96.   #
  97.   if {[info procs mode:$mode:post_spacebar_hook] != {}} {
  98.     mode:$mode:post_spacebar_hook $t
  99.   }
  100. }
  101.  
  102. ######################################################################
  103. # jedit:sabbrev_hook t - jedit:cmd:sabbrev if it's on
  104. ######################################################################
  105.  
  106. proc jedit:sabbrev_hook { t } {
  107.   global JEDIT_MODEPREFS
  108.   
  109.   set mode [jedit:get_mode $t]
  110.   
  111.   if $JEDIT_MODEPREFS($mode,sabbrev) {
  112.     jedit:cmd:sabbrev $t
  113.   }
  114. }
  115.  
  116. ######################################################################
  117. # jedit:dabbrev_hook t - jedit:cmd:dabbrev if it's on
  118. ######################################################################
  119. # (not used by plain mode - Tab does dabbrev *INSTEAD OF* inserting
  120. #   tab, not *before* inserting tab)
  121.  
  122. proc jedit:dabbrev_hook { t } {
  123.   global JEDIT_MODEPREFS
  124.   
  125.   set mode [jedit:get_mode $t]
  126.  
  127.   if $JEDIT_MODEPREFS($mode,dabbrev) {
  128.     jedit:cmd:dabbrev $t
  129.   }
  130. }
  131.  
  132. ######################################################################
  133. # jedit:autobreak_hook - insert a cr if line is long enough
  134. ######################################################################
  135.  
  136. proc jedit:autobreak_hook { t } {
  137.   global JEDIT_MODEPREFS
  138.   
  139.   set mode [jedit:get_mode $t]
  140.   
  141.   if $JEDIT_MODEPREFS($mode,autobreak) {
  142.     set length [string length [$t get {insert linestart} insert]]
  143.     if {$length > ($JEDIT_MODEPREFS($mode,textwidth) - 15)} {
  144.       jedit:returnkey $t
  145.     }
  146.   }
  147. }
  148.  
  149. ######################################################################
  150. # jedit:returnkey - do whatever return does (indentation, etc.)
  151. ######################################################################
  152.  
  153. proc jedit:returnkey { t args } {
  154.   set mode [jedit:get_mode $t]
  155.   
  156.   jedit:cmd:save_checkpoint $t
  157.   
  158.   if {[info procs mode:$mode:pre_returnkey_hook] != {}} {
  159.     mode:$mode:pre_returnkey_hook $t
  160.   }
  161.   #
  162.   if {[info procs mode:$mode:returnkey] != {}} {
  163.     mode:$mode:returnkey $t
  164.   } else {
  165.     jedit:sabbrev_hook $t
  166.     j:tkb:self_insert $t Return "\n"
  167.     jedit:autoindent $t
  168.   }
  169.   #
  170.   if {[info procs mode:$mode:post_returnkey_hook] != {}} {
  171.     mode:$mode:post_returnkey_hook $t
  172.   }
  173. }
  174.  
  175. ######################################################################
  176. # jedit:autoindent - insert same indentation as previous line
  177. ######################################################################
  178.  
  179. proc jedit:autoindent { t } {
  180.   global JEDIT_MODEPREFS
  181.   
  182.   set mode [jedit:get_mode $t]
  183.   
  184.   if $JEDIT_MODEPREFS($mode,autoindent) {
  185.     if {[info procs mode:$mode:autoindent] != {}} {
  186.       mode:$mode:autoindent $t
  187.     } else {
  188.       set prevline [$t get {insert -1lines linestart} {insert -1lines lineend}]
  189.       if [regexp "^\[ \t\]\[ \t\]*" $prevline indentation] {
  190.         j:text:insert_string $t $indentation
  191.       }
  192.     }
  193.   }
  194. }
  195.